subroutine hello (a)
 
    integer a
     
        write(*,*)'Hello from Fortran90!!!',a
     
end subroutine hello

function kif(a) result(b)
    !kind说明精度
    implicit none
    real(kind=8), intent(in)    :: a(:,:)
    complex(kind=8)             :: b(size(a,1),size(a,2))
    b = exp((0,1)*a)
end function kif
